home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / tcp / MCF_Buttons.lha / MCF_Buttons / Install_MCF_Buttons < prev    next >
Encoding:
Text File  |  1998-10-06  |  3.8 KB  |  169 lines
  1. ; Installer Script for MCF_Buttons Version 5.8
  2. ; $VER: Install_MCF_Buttons V_5.8 (22.06.98)
  3.  
  4. (set #install-docs
  5. (cat " Install documentation?\n"
  6.      "This consists of up to 9 files and thier icons.\n"
  7. ))
  8.  
  9. (set #goodbye
  10. (cat "\nInstallation of MCF_Buttons is Complete.\n\n"
  11. ))
  12.  
  13. (set #my-address
  14. (cat    "Donald T Becker\n"
  15.     "335 S Chestnut St\n"
  16.     "Mt Carmel Pa 17851-2219\n\n"
  17.     "email:   dtbecker@ptd.net\n"
  18.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  19. ))
  20.  
  21. (set dalrc (= 1))
  22. (set mbver (+ 8 (* 5 65536)))
  23. (set abver (+ 1 (* 5 65536)))
  24. (set sbver (+ 1 (* 5 65536)))
  25. (set wwver (+ 3 (* 5 65536)))
  26. ;********************************************************************
  27.  
  28. (complete 1)
  29.  
  30. (set target1            (askdir
  31.     (prompt "Select Directory where your AmIRC program is")
  32.     (help "This directory should also have a  Rexx  directory in it")
  33.     (default "RAM:")
  34. ))
  35.  
  36. (set @def-target (target1))
  37. (set @old-file (tackon target1 "MCF.Buttons"))
  38.  
  39. (if (Exists "Rexx:SendBrowser.amirx" (noreq))
  40.     (run "delete <>nil: Rexx:SendBrowser.amirx")
  41. )
  42. (if (Exists "Rexx:MCF_About.amirx" (noreq))
  43.     (run "delete <>nil: Rexx:MCF_About.amirx")
  44. )
  45. (if (Exists "Rexx:MCF_Buttons.amirx" (noreq))
  46.     (run "delete <>nil: Rexx:MCF_Buttons.amirx")
  47. )
  48. (if (Exists "Rexx:MCF_WWW.amirx" (noreq))
  49.     (run "delete <>nil: Rexx:MCF_WWW.amirx")
  50. )
  51.  
  52. (if (Exists @old-file (noreq))
  53.     (set dalrc (- dalrc 1))
  54. )
  55.  
  56. (if (Exists "MCF:MCF.Buttons" (noreq))    (
  57.     (run "copy <>nil: mcf:MCF.Buttons" @def-target)
  58.     (run "delete <>nil: mcf:MCF.Buttons")
  59.     (set dalrc (- dalrc 1))
  60. ))
  61.  
  62. (if (= dalrc 1)
  63.    (run "copy MCF/MCF.Buttons" @def-target)
  64. )
  65.  
  66. (complete 20)
  67. (set target2            (askdir
  68.     (prompt "Select Rexx Directory")
  69.     (help "Directory where MCF_Buttons.amirx will be copied to.")
  70.     (default @def-target)
  71. ))
  72.  
  73. (set mbfile (tackon target2 "MCF_Buttons.amirx"))
  74. (set abfile (tackon target2 "MCF_About.amirx"))
  75. (set sbfile (tackon target2 "SendBrowser.amirx"))
  76. (set wwfile (tackon target2 "MCF_WWW.amirx"))
  77. (set oldver (- 1 1))
  78. (if (Exists mbfile)
  79.     (set oldver (getversion mbfile))
  80. )
  81. (if (> mbver oldver)(
  82.     (complete 30)
  83.     (copyfiles (
  84.         (source  "Rexx")
  85.         (dest     target2)
  86.         (choices "MCF_Buttons.amirx")
  87.     ))
  88. ))
  89.  
  90. (set oldver (= 0))
  91. (if (Exists abfile (noreq))
  92.     (set oldver (getversion abfile))
  93. )
  94. (if (> abver oldver) (
  95.     (complete 40)
  96.     (copyfiles
  97.         (source  "Rexx")
  98.         (dest     target2)
  99.         (choices "MCF_About.amirx")
  100.     )
  101. ))
  102.  
  103. (set oldver (= 0))
  104. (if (Exists sbfile (noreq))
  105.     (set oldver (getversion sbfile))
  106. )
  107. (if (> sbver oldver) (
  108.     (complete 50)
  109.     (copyfiles
  110.         (source  "Rexx")
  111.         (dest     target2)
  112.         (choices "SendBrowser.amirx")
  113.     )
  114. ))
  115.  
  116. (set oldver (= 0))
  117. (if (Exists wwfile (noreq))
  118.     (set oldver (getversion wwfile))
  119. )
  120. (if (> wwver oldver) (
  121.     (complete 60)
  122.     (copyfiles
  123.         (source  "Rexx")
  124.         (dest     target2)
  125.         (choices"MCF_WWW.amirx")
  126.     )
  127. ))
  128.  
  129. (complete 70)
  130. (if (askbool
  131.     (prompt "Do you wish to Install MCF_Buttons Alias?")
  132.       (help "This will install Aliases that make starting MCF_Buttons easier.")
  133.       (choices "YES" "NO")
  134.       (default 1))
  135.       (
  136.         (message ("Start a copy of AmIRC that has\nAMIRC.1 in the top left corner.\nClick Proceed when ready."))
  137.         (run "rx \"address AMIRC.1 say '/ALIAS MB /Rx MCF_Buttons %p'\"")
  138. ))
  139.  
  140. (complete 80)
  141. (set docs (askbool (prompt #install-docs)
  142.         (help #install-docs-help)
  143.         (choices "YES" "NO")
  144.       )
  145. )
  146.  
  147. (complete 90)
  148. (if (= docs 1)    (
  149.     (set target3
  150.         (askdir
  151.             (prompt "Select Directory for MCF_Buttons documentation.")
  152.             (help "Directory where MCF_Buttons documentation will be copied to.")
  153.             (default @def-target)
  154.     ))
  155.     (copyfiles 
  156.         (prompt "Check off Docs that you want copied.")
  157.         (help "")
  158.         (source "docs")
  159.         (dest target3)
  160.         (choices "DISCLAIMER" "DwarfX.ReadMe" "History" "Kuang¹¹.ReadMe" "MCF.ReadMe" "MCF_Buttons.readme" "Phoenix.ReadMe" "ReadMe.First" "WildIRC.ReadMe")
  161.         (confirm)
  162.         (infos)
  163.     )
  164. ))
  165.  
  166. (complete 100) (message #goodbye #my-address)
  167.  
  168. (exit (quiet))
  169.